"192.168.0.1:sipop"

RESTASALIDAS

Descriptions

ESTE PROCEDIMIENTO ACTUALIZA LAS SALIDAS EN INVENTARIO Y EXISTENCIAS
SOBRE EL DETALLE DE INGRESO CORRESPONDIENTE AL PRIMER INGRESO REGISTRADO PARA EL
ARTICULO SEGUN POLITICA PRIMERAS ENTRADAS PRIMERAS SALIDAS

Input Parameters

Output Parameters

There are no output parameters for procedure RESTASALIDAS

Definition

CREATE PROCEDURE RESTASALIDAS (
    IDARTICULO CHAR (8) CHARACTER SET NONE,
    IDENTRADA CHAR (8) CHARACTER SET NONE,
    SALIDA FLOAT)
AS
DECLARE VARIABLE VARTOTAL FLOAT DEFAULT  0.0;
DECLARE VARIABLE VAREXIST FLOAT DEFAULT  0.0;
BEGIN

SELECT SUM(CANTIDAD) AS TOTAL FROM DETALLESALIDA
WHERE ARTICULO= :IDARTICULO
INTO: VARTOTAL;

if (VARTOTAL is null) then
begin
  VARTOTAL = 0;
end

UPDATE INVENTARIO SET
   EXISTENCIA = EXISTENCIA - :SALIDA,
   SALIDAS = :VARTOTAL,
   ultima_salida = 'TODAY'
   WHERE ID_ARTICULO = :IDARTICULO ;


if (:IDENTRADA is null ) THEN
BEGIN
 UPDATE DETALLEINGRESO
 SET EXISTENCIA = EXISTENCIA - :SALIDA
 where REGISTRO_INGRESO =
 (select id_registro_ingreso
   from registrodeingreso where
   datetime_insert = (
   select min(datetime_insert) from registrodeingreso));

END

  /*  SELECT EXISTENCIA FROM DETALLEINGRESO
    WHERE ARTICULO = :IDARTICULO AND
    REGISTRO_INGRESO = :IDENTRADA
    INTO: VAREXIST;
    
    VARTOTAL = :VAREXIST - :SALIDA;*/

/*    UPDATE DETALLEINGRESO SET EXISTENCIA = EXISTENCIA - SALIDA
    WHERE ARTICULO= :IDARTICULO
    AND REGISTRO_INGRESO = :IDENTRADA;
*/
/*    UPDATE inventario set existencia = (existencia- :SALIDA)
    --fecha_ultimo_mov = 'TODAY'
    WHERE ID_ARTICULO= :IDARTICULO;
*/

END

This file was generated with EMS InterBase/FireBird Manager (www.ibmanager.com) at 09/06/2005 05:52 p.m.